home *** CD-ROM | disk | FTP | other *** search
/ Freedom Crack 9 / Freedom Crack - Issue 9 (1992-05)(Freedom).adf / sources / borderoff.S
Text File  |  2022-11-05  |  1KB  |  76 lines
  1.     movem.l    d0-d7/a0-a6,-(a7)
  2.     move.l    4,a6
  3.     lea    dosname,a1
  4.     jsr    -408(a6)
  5.     move.l    d0,dosbase
  6.     lea    intname,a1
  7.     jsr    -408(a6)
  8.     move.l    d0,intbase
  9.     bsr    borderoff
  10.     move.l    4,a6
  11.     move.l    intbase,a1
  12.     jsr    -414(a6)
  13.     move.l    dosbase,a1
  14.     jsr    -414(a6)
  15.     movem.l    (a7)+,d0-d7/a0-a6
  16.     clr.l    d0
  17.     rts
  18.  
  19. Borderoff:
  20.     move.l    intbase,a6
  21.     move.l    $34(a6),a0
  22.     move.l    #$23800,$18(a0)
  23.     clr.l    $36(a0)
  24.     moveq    #0,d0
  25.     moveq    #0,d1
  26.     moveq    #0,d2
  27.     move.w    4(a0),d2
  28.     sub.l    d2,d0
  29.     move.w    6(a0),d2
  30.     sub.l    d2,d1
  31.     jsr    -168(a6)
  32.     move.l    #640,d0
  33.     move.l    #256,d1
  34.     move.w    8(a0),d2
  35.     sub.l    d2,d0
  36.     move.w    10(a0),d2
  37.     sub.l    d2,d1
  38.     jsr    -288(a6)
  39.     move.l    a1,-(sp)
  40.     move.l    4.w,a1
  41.     tst.w    $22(a1)
  42.     bgt.s    nowa
  43.  
  44. wait:
  45.     cmp.w    #640,8(a0)
  46.     bne.s    wait
  47. wait2:    cmp.w    #256,10(a0)
  48.     bne.s    wait2
  49.  
  50. nowa:    move.l    (sp)+,a1
  51.     move.l    #640,d7
  52.     move.l    d7,d0
  53.     move.l    d7,d2
  54.     move.l    #256,d7
  55.     move.l    d7,d1
  56.     move.l    d7,d3
  57.     jsr    -318(a6)
  58.  
  59.     move.l    dosbase(pc),a6
  60.     jsr    -60(a6)
  61.     move.l    d0,d1
  62.     move.l    #offtext,d2
  63.     moveq    #2,d3
  64.     jsr    -48(a6)
  65.  
  66.     rts
  67.  
  68. intbase:    dc.l    0
  69. dosbase:    dc.l    0
  70. intname:    dc.b    "intuition.library",0
  71.     even
  72. dosname:    dc.b    "dos.library",0
  73.     even
  74. offtext:    dc.b    27,"c"
  75.     even
  76.